HEADINGS MAIN4 MAIN.SCREEN HEADINSD MENU.SETUP SUBMENU SUBMENU.SETUP CUSTOMERSTRUCTUREZ TITLE ADD2` STATE PHONE CUSTOMER CUSROMERSTRUCTURE B300` B400` LOCATE6 INVSTRUCTURE PRICE CUSTNUM\ THENCALL CUSTOMER.TITLE6 CUSTOMER.ADD1U CUSTOMER.ADD2- CUSTOMER.CITY CUSTOMER.STATE CUSTOMER.ZIP CUSTOMER.PHONE PRINTCUSTOMER% PRINTCUSTOMER.TITLEe RRRRR DESCRIP D100} TYPEPE INV.COST PRINTINV PRINTINV.COSTL @ INVENTORY+ SUBTOTAL E100D POIOT GOSUBZIP A100.SHOW.SCREENe A200 A200.INPUT.SCREEN ALOCATE A300n A300.PLACE.ORDERL A400.NEW.CUS A400] A500R A500.SAVE CUS.INFO? A500.SAVE.CUS.INFO$ SAVE.CUS.INFOg OPOPOO ENTER ORDER CUST1> CUST1.NUM{ D200+ TTTTT B800DO& A1000 TOTALK A600.PRINT.INVOICE A600u DESCRIPTION OCATE BOTTLE INV.VER F1OOk CALLNUMBERJ NUMBER CUST.NUM COSE[ LOCATE2 TENDER EXPIREz INVNUM GENERATEN INVOICE INVOICE.INV1 INVOICE.INV1.j INVOICE.INV2r INVOICE.INV3F INVOICE.INV4 INVOICE.INV5 INVOICE.INV6 INVOICE.INV7 INVOICE.INV8 INVOICE.INV9 INVOICE.INV10 INVOICE.INV2. INVOICE.INV3. INVOICE.INV4. INVOICE.INV5. INVOICE.INV6. INVOICE.INV7.# INVOICE.INV8.4 INVOICE.INV9. INVOICE.INV10.z INVOICESTRUCTURE INV1j INV3L INV4a INV10 INV1. INV5. INV6. INV7.# INV8., INV9. INV10. INVNUMGOTOr A700h A700.SHOW.INVOICEr TTTYRP T100* CARDO EXPDX T200A T300$ CHECK CHKAMOUNT SAVEINV QUANx ITEM1; ITEM2e ITEM3 ITEM4 ITEM5 ITEM6 ITEM7 ITEM8 ITEM9- OLDINVOICESTRUCTURE` LOOKUPSTRUTL QUE2? QUE3m LOOKUP LOOKUPSTRUTQUE1 LOOKNAME3 LASTNAME LOOKUP.LASTNAME LOOKUP.QUE1 FULLNAME LOOKUP.FULLNAME LOOKUP.QUE2 LOOKUP.QUE3 SEARCH.FOR.CUS1 SEARCHB LOOK] J900a LOOK100W QUE2GOTOJ IIIII FULLNA THENPRINTp SPACEn TRIMP CUSTOMER.SEARCH TITLE1 TITLE2N CISTOMER CISTOMER.TITLE1 CUSTOMER.TITLE2 CUSTOMER.TITLE1v STOCK INV.STOCKj CRODE Q1003 Q200+ Q300( CNT1 CNTCNT1b INV.CODE INV.DESCRIP CODEPRINT DESC5 RETAIL CODE1 RANSOM PCODE INV100 INV900 CHOICE CHOICE5 INV400# INV200w CHOICE6 IN.STOCK\ SHIPPINGS ADDRESSg CHOICE3 T600O STADD ZIPCODE) ASDFD J1000 IFWER TE400 TE100 PRESS CHOOSEA WRONG TOTALCOLOR USINGA4U COMPANY.INFO/ COMPANY INFO9 COM100 COLOR4 YUGHJ THRNG THIS1 CORRECTz PRINW SPACEC SUBTOT NOTHGT TODAY.TOTAL TODAY. DAILY TODAYS TODAYS.TOTALQ JSDF_ MANAGER INPUTDFR INPUTD MA100 SH100 SH200 SH300 SH400 SH500 SH600& SUBSHIP MEW.INVENTORY NEW.INVENTORY NEWCODE NEWDES NEWPRICE NEWSTOCK IN100 IV100 INV1000 INKEY COM50 OFKEY ***FILES USED *CUSTOMER.DAT CUSTOMER INFO *CUSTOMER.NUM LAST CUSTOMER # *INVENTOR.DAT INVENTORY INFO *INVOICE.NUM LAST INVOICE # *INVOICE.DAT INDEX FOR INVOICE #'S F *COMPANY.DAT COMPANY INFO FOR INVOICE HEADING *DAILY.DAT DAILY TOTALST *INVENTOR.IDX INVENTORY #'S *INVENTOR.REC *RESET DAILY.DAT FILE FOR NEW DAYM C:\ORDER\DAILY.DATd C:\ORDER\DAILY.DATd *START OF PROGRAM EXECUTIONP *BEGINNING OF PROGRAM MAIN MENU INPUTS TOTAL SALES" $$####.##" *FUNCTION KEY SUBROUTINES1 HEADINGS FIRST NAME...> LAST NAME....> ADDRESS......> BOX OR APT#..> CITY.........> STATE..> ZIP..> PHONE...>" CUST #..>" NEW CUST........1" EXISTING CUST...2" SEARCH FOR CUST.3" INVENTORY.......4" COMPANY INFO....5" EXIT............6" ENTER CHOICE...> QTY CODE DESCRIPTION PRICE TOTAL ...................................................................." SUBTOTAL $$####.##" SHIPPING $$##.##" ........................" GRAND TOTAL$$####.##" SHIPPING TAX SUBTOTAL TOTAL CREDIT CARD ON FILE.......1" CREDIT CARD...............1" CHECK.....................2" CASH......................3" CHOICE" RETURN TO ORDER...........4" INVENTORY ITEM # PRODUCT CODE PRODUCT PRICE STOCK" ....................................................................." C:\ORDER\INVENTOR.REC"d C:\ORDER\INVENTOR.DAT"d C:\ORDER\INVENTOR.IDX"d ### \ \ \ \ $$###.## #,###" INVENORY CONTROL MENU" CHANGE STOCK ON HAND............................1" CHANGE ITEM INFO................................2" ENTER NEW ITEM..................................3" EXIT............................................4" CHOICE " ENTER THE ITEM # " C:\ORDER\INVENTOR.DAT"d BAD ITEM #====>" CURRENT STOCK ENTER TOTAL STOCK ON HAND C:\ORDER\INVENTOR.DAT"d ENTER THE ITEM # TO CHANGE OR FOR MAIN MENU " C:\ORDER\INVENTOR.DAT"d BAD ITEM #====>" CURRENT STOCK ENTER THE NEW PRODUCT CODE " ENTER A DESCRIPTION ENTER A PRICE ENTER A STOCK QTY C:\ORDER\INVENTOR.DAT"d ENTER AN ITEM # THAT IS NOT ALREADY BEING USED OR FOR MAIN C:\ORDER\INVENTOR.DAT"d THIS CODE IS ALREADY IN USE=====>" PLEASE CHOOSE AGAIN" ENTER THE PRODUCT CODE " ENTER A BRIEF DESCRIPTION ENTER THE SELLING PRICE ENTER THE STOCK ON HAND FOR THIS PRODUCT " IS THE INFO CORRECT? (Y)ES OR (N)0 C:\ORDER\INVENTOR.REC"d C:\ORDER\INVENTOR.REC"d C:\ORDER\INVENTOR.DAT"d C:\ORDER\INVENTOR.IDX"d A100.SHOW.SCREEN A200.INPUT.SCREEN *NEW CUST Y TO CONTINUE N TO CANCEL * OLD CUST CUST # TO HIGH C:\ORDER\CUSTOMER.DAT"d DO YOU WANT TO PLACE AN ORDER? " A300.PLACE.ORDER *ENTER THE ORDER BEGIN ENTERING THE ORDER. " TO CHANGE AN ENTRY, RE-ENTER " THE ORDER AS A NEGATIVE QTY. " ENTER 999 WHEN ORDER IS DONE," ENTER 888 TO ABORT THE ORDER." C:\ORDER\INVENTOR.DAT"d% BAD CODE ====>" \ \ $$##.## $$###.##" $$####.##" $$####.##" ARE YOU SURE? (Y)ES OR (N)O ENTER CARD # " ENTER EXP DATE IS THIS CORRECT? (Y, N, OR Q) ENTER CHECK # ENTER CHECK AMOUNT " IS THIS CORRECT? (Y, N, OR Q) ENTER AMOUNT PAID *ROUTINE FOR UNDERPAYMENT PRINT "THE AMOUNT PAID IS LESS THAN THE ORDER TOTAL!" PRINT USING "DO YOU WANT TO ISSUE A BALANCE OF $$###.## FOR THIS CUSTOMER?"; DUE INPUT "ENTER Y OR N (TYPE Q TO START OVER)", TYU$# INPUT "TYPE (Y) IF THIS IS CORRECT OR (Q) TO START OVER ", TYU$ LOOP UNTIL TYU$ = "Y" OR TYU$ = "N" OR TYU$ = "Q" IF TYU$ = "Q" GOTO TE100 *NONACTIVE ROUTINE FOR CUSTOMER BALANCES V IF TYU$ ="Y" THEN OPEN "C:\ORDER\CUSTOMER.DAT" FOR RANDOM AS #51 LEN = LEN(CUSTOMER)O GET #51,CUS,CUSTOMERM CUSTOMER.BALANCE =CUSTOMER.BALANCE+DUEM END IF PUT #51, CUS, CUSTOMER CLOSE #51C PRINT USING "CHANGE DUE $$###.##"; (DUE * -1) INPUT "PRESS IF YOU ARE DONE, OR (Q) TO START OVER ", PJA$ INPUT "OR ENTER THE AMOUNT OF CREDIT ISSUED TO THE ACCOUNT $", RUE$R IF PJA$ = "Q" THEN GOTO TE100 *NONACTIVE ROUTINE FOR CUSTOMER BALANCES (NEGATIVE) IF RUE$ ="Y" THEN OPEN "C:\ORDER\CUSTOMER.DAT" FOR RANDOM AS #51 LEN = LEN(CUSTOMER) GET #51,CUS,CUSTOMERM CUSTOMER.BALANCE =CUSTOMER.BALANCE-DUEM PUT #51, CUS, CUSTOMER CLOSE #51C SHIPPING ADDRESS ON FILE WILL THIS BE SHIPPED TO THE ADDRESS ABOVE (Y OR N)? ENTER THE SHIPPING INFO (USE THE KEY TO GO TO PREVIOUS FILEDS" ENTER THE NAME TO SHIP TO ENTER THE STREET ADDRESS " ENTER PO BOX OR APT # ENTER THE CITY " ENTER THE STATE ENTER THE ZIP CODE " A400.NEW.CUS C:\ORDER\CUSTOMER.NUM"d C:\ORDER\CUSTOMER.NUM"d 'S CUSTOMER # IS " PRESS ENTER... *SETUP THE INVOICE DATA KEY FOR NEW CUSTOMER C:\ORDER\INVOICE.DATd A500.SAVE.CUS.INFO "*ENTERS NEW CUSTOMER OR* "*SAVES CHANGES TO CUSTOMER INFO* C:\ORDER\CUSTOMER.DAT"d A600.PRINT.INVOICE *GENERATE INVOICE NUMO C:\ORDER\INVOICE.NUMe C:\ORDER\INVOICE.NUMe *SAVE INVOICE # TO THIS CUSTOMERS REFERENCE FILE C:\ORDER\INVOICE.DATd C:\ORDER\INVOICE.DATd *PRINT INVOICE C:\ORDER\COMPANY.DATe THANK YOU FOR ORDERING FROM PHONE FAX CUSTOMER# BILLING ADDRESS" ORDER DATE " INVOICE# " ### \ \ \ \ $$##.## $$####.## AMOUNT RECIEVED $$####.##" ACCOUNT BALANCE $$####.##" CHARGE TO \ \ \ \ CHECK ###### $$####.##" CASH $$####.##" SHIPPING ADDRESS *REVISE STOCKI C:\ORDER\INVENTOR.DAT"e *SAVE TOTAL IN FILE* C:\ORDER\DAILY.DATe C:\ORDER\DAILY.DATe NUMBER C:\ORDER\CUSTOMER.NUM"d! A700.SHOW.INVOICE C:\ORDER\INVOICE.DATd LAST 10 INVOICES SEARCH.FOR.CUS ENTER SEARCH CRITERIA. ALL FIELDS MUST BE USED (TYPE IN ANY FIELD TO QUIT) 1.FIRST 2 LETTERS OF LAST NAME===> 2.STATE=======>" 3.ZIP CODE====>" PRESS ENTER TO SEARCH OR Q TO QUIT " C:\ORDER\CUSTOMER.DAT"d ANOTHER SEARCH? COMPANY.INFO C:\ORDER\COMPANY.DATd COMPANY INFO 1.COMPANY NAME====> 2.ADDRESS=========> 3.ADDRESS=========> 4.CITY============> 5.STATE===========> 6.ZIP=============> 7.PHONE===========> 8.FAX=============> ENTER THE FIELD TO CHANGE (1-8) OR 9 TO QUIT " C:\ORDER\COMPANY.DATd TODAY.TOTAL TODAYS SALES TOTALS" C:\ORDER\DAILY.DATe \ \ TODAY'S RUNNING TOTAL IS $$#,###.##" PRESS NEW.INVENTORY ITEM # PRODUCT CODE PRODUCT PRICE STOCK" ....................................................................." C:\ORDER\INVENTOR.DAT"d C:\ORDER\INVENTOR.IDX"d C:\ORDER\INVENTOR.REC"d ### \ \ \ \ $$###.## #,###"